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00 eTITL ACSACTSTA MACHINE STATEMENTS 
TE NGEE8 
00 : 
5 ia i en aintey: cmrnias & 
° * 
$05 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B + 
000 3* DIGITAL FQUIPHENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
4 ” ALL RIGHTS RESERVED. * 
b ® 
$000 3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
9808 7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 7* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 7* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 7* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9006 :* TRANSFERRED. . 
3* ® 
0000 7* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 :* CORPORATION. * 
3 ae 
0000 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
4444 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
3 ® 
4 jteeeeeeneeeeeeererrereeeeeeereeennenennnnnnnnnnnnennsssnsnsssseeeeaeeeeneees 
+ 
FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translates RACROH Se source code into object 
modules for input to the VAX-11 LINKER 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 25-AUG-78 
MODIFIED BY: 


V03-002 MTROO34 Mike Rhodes 03- 
Set SYMSM_REF in the current PSECT 
a  WASK directive is encountered. 


v03.01 MTROOI7 Mike Rhodes 07-Jun-1982 
Re-enable FLGSV_ COMPEXPR in DATARG::, which 
was diabled when a forward reference to a 
symbol in an expression occurred. 


v02.18 BLS0065 Benn Schreiber 30-Jul-1981 
Remove 65K store repeated check since Linker 
allows more 


ete 


J 
block when 
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v02.17 PCG0004  peerge 28-Jul-1981 
Call DATARG ro GUDSTR an 


OCTSTR. 
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v02.16 PCG0002 Peter George 05-May-1981 
Set RELPSECT flag for all global symbol assignments 


and for all global labels. 


v02.15 aes Chris Hume 28-0c t-1980 
De-optimize boundary valued backward references if indexing 
requested. Allow the architecturally legal immediate mode in 
address and vield contexts and also the practically useless 
indexed immediate mode. 
(ACTREF MAR 02.15, DEFINE.MAR 02.17, SYMTAB.MAR 02.18) 


vO1.14 RNOO23 R. Newland 3-Nov-1979 
New message codes to get error messages from system 
message file. 


v0O1.13 RNOO20 R. Newland 26-Oct-1979 
Change error message for .BLKx expression not absolute 


v0O1.12 RNOO19 R. Newland 25-0ct-1979 
Improve error pointer positioning 


VO1.11 RNOO14 R. Newland 14-0¢t-1979 
Support for G_floating, H_floating and Octaword data types. 
-BLKG, .BLKH, .BLKO and .OCTA directives. 


vO1.10 RNOOOS R. Newland 12-Aug-1979 
Remove .ALIGN LONG statements 


vO1.15 RNOO2Z9 =  —— R. Newland 12-Feb-1980 
Correct Listing of branch operand when on continued Line. 


v0O1.13 RNOO21 R. Newland 28-0ct-1979 
Correct Listing of .ENTRY register mask value. 
SPR 11-26384 


v01.09 0003 B. Schreiber 10-JAN-1979 
Catch syntax error if pound A forgotten before 
ASCII immediate (*A) in operands. 


SOOoOoCooooooooooooooooooooooooo 


SOCOSOOCSOSCOSOSOSOSOOSOSOSOOOSOOOOOSOOOSoOOoO 


NAUESWN $$ O OOONAU EWN 0 OONOAUES WIN“ OOODNOUS WOW 


OOOO 000090909 09 0909 09 09 09 09 INI NI NINN NINN IO AAA AAAAOOU 


Soooooooooooo 


SSEP=1986 01:47:15 EMACHOSSRCSACTSTA.RA rae i, 


vO 


)| 


3 | 


~ 
ew 
a 
a 
a 
Zz 
oO 
” — 
- _ fae 
*. — <« 
| a ” @o YL 
| oad om Zz 
| oz w vy « Ss 
' . ” a oO a 
! w<e Aa Zune — 
| or we <xwa 
ot S 2ESe z 
— 
| <a vee wo 
| wn owt Owrv Me 
| ev au >wZza Vv | 
i za @ —s— a w 
| ” IuI=Nna wm =x | 
| Ws jOodmunZe © =) } 
| zo occa waituw 
>a e>¥ ‘caw o 
~e 2Zzr-aw@®e _ 
x >Owzaad E& 
<= MvO-<foO 2) 
> wo o w 
Www C 2 za 
222222 oO — 
awn tt ee a —wo 
-—— wVuUMeE ee & . Sea 
oe oe Wl H oro 
—_e aanaanaan @ cos 
ow erertetertetets wo eerere 
“7 cf . 
Ne w 
oo =< 
uJ 
ww oOo 
oo0o 2 
an ba t 
-m = | 
$s < - 
aa 3 pm | aad 
ww So om ] 
mm 2 -—-a 
‘ss ” bg ‘ee -— 
on 2 < s#eetneees eee a eeeeuees -— | 
_ Oo _ eee se 8 sss @OD ess ese ee >a 
- << @Q2z3II#I@0O34 o32 4M o3II@oO3 oa 
Coa a tt te eec ec oooouMwmo BS 
<= i eee ee ee -_—e | oe gull eet eel eel eel cee SS ae 
< wBeeuue oO MMNMNMNMNM Ynn mw ANAMMMMMM VW ee 
~ < WwW a #eeeees ees Le #ee0e8 6 686 AY 
4 oaooaanca A BAA ARAG PAA APM AAPA VM 
vw ~wo4uAoOu Vv eee eee ed ed ool ed od el ed ee eed «wu 
cont w aijtoodwu oe 4 2222222 222 *2Zz 2222222 z=< 
a pr >YvrEoaouw ” = tt ee OO et } 
bed ajZzeaaco a wn” 
wn” > wzoawo oO ” 
—+ ww MVO—-<£OW @ ee ad ou 
—- ad aaa 4 = w vw w w w i: 4 
- = WUVYVUYUYUY > o w oe o- ed oe za 
ao uw <a<aaaacacaet ” < “” 6S: o> o> Yea 
wn” |= = = = = SS a a za =a za =< 
> wm hd PAAPAAAAA a oO *_ we we we we 
a yn” w - ‘ 4 4 =z 
> oO -— ” —_ oO = | 
Ha a <i > a - a 
VL Vv > 2 2 « ” _ 
z = t=) 3 ‘ t t t 
- uu oO - _ _ _ 
” < x= Lf 4 
a eerere eerere *e*e*e eerere Qa Qa Qa oa 
w DOK OM TN Ol DHOOM TF MNOR. DHO— CUM TFTNOR. DHOOM TMNOR. DOO MUM TNOPR. DOO UM TN 
= BWW 0 III OOOO OEP AS SF SST ST ST ES ET TU 
- e LLL 
— 
=s5 
Y= DOOOCOCOCOCOOOCOCOOCCOCOOCOCCOOOOCOCOSCOCOSO — KOM TARR. OO ££ MO OWWWW Oe CUA 
—- BOOOCOCOCOOOSOOOCOCOOCSCOOSSOSSOSSOOSOSOOCOSOOCOSOOSOOOOOSoOooOOoSoSo oOo So ee ee Ke — 
VIX DOOQOOCOOOOOOOSOOSCSSOOOSOSOOSOSOSOSOOOSOSSSOSOSOOSOSOOSOOSOOSOOOOOSOSSOSOSOSOOSOSOSOoOOoSooS 
xz o © 
vw o Oo KOC Or. uwOorowr TWww or o 
~ Ss xs ss 
N 
So 
So 
o 


ft 
— 
ww 
— 
s 
z 
c- @ 
z> 


ee —4 


MAI 


be EMENI 5 as tht Be ON Te eto Mecro_ V04-00 Page 


ES 4 | 
LARATI MACRO. SRCJACTSTA.MAR; 1 (2) | vO 
9000000" 9019 156 a ;LONGWORD | 
9009 * 001D 133 SQUADWORD | 
' 1 1 : MACSCK _SBY_TRU1,- SSIGNED BYTE 
§009000" 025 15 MACSCK~SWD-TRU1,- [SIGNED WORD 
00000000'00000000' 00 9 160 0 SOCTAWORD 
09 1 16¢ DAT_SHIFT_FACT: i SHIFT # OF ELEMENTS OF ALLOCATION 
031 16 :BY THIS MUCH TO GET ALLOCATION | 
04 01 00 03 02 01 00 0031 164 -BYTE 0,1,2,3,0,1,4 ‘BYTE ,WORD, LONG, QUAD SIGNED "BYTE, 
0038 165 SIGNED_WORD ,OCTAWORD | 


Page 


sce v04-00 

ACTSTA.MAR; 1 
THE 

ge code 


Ma 
;SEND ERROR MSG TO INT. FILE 


MACRO. SRC 
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AX/VMS 


;WERE THERE ENOUGH OPERANDS? 
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F 
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E 

$ 
;STATEMENT = MACHINE_STAT 
;IF LEQ YES 


; No--set messa 


_MOPNUM 


ND, _THE N 
ND THE LA 
ERR NOTENUFOPR 


W*MACSGL 
MACSERRORPT 


10$ 


.PSECT MACSRO_CODE_P1,NOWRT,GBL,LONG 
TSTL 

BLEQ 

SMAC_ 

BSBW 

RSB 


.= NEN O : 
*eere rte te te te *e *e te *e re iF e) oo 
DHOOM TNOR. DOO CUM TNO. 
OOORRRA-A_A_PA-P_RR.0000000000000000 
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«-SBTTL OPCODE GENERATION 


>m 


p++ 
; FUNCTIONAL DESCRIPTION: 


MINST1_ IS INVOKED WHEN AN OPCODE IS ENCOUNTER 
UP TO PROCESS THE OPERANDS THAT FOLLOW THE OP 


INPUTS: 
MACSGL_VALUE SYMBOL BLOCK ADDRESS OF OPCODE 
OUTPUTS: 


MACSGL_MOPNUM NUMBER OF OPERANDS FOR THIS 
MACS$GL_MOPPTR POINTER TO OPERAND WORD DESC 


ED. iT SETS 
CODE. 


ODE 


OPC 
RIPTORS 


SOOOCCOOOCOOOOCOCOCOOoO 


—— ooo 


MINST1:: s;MACHINE_INST = DOPCODE 


MOVL W*MACSGL <VALUE R6 GET SYMBOL BLOCK ADDRES 


56  0000'CF 20 S 
MACSCREF -OPCODE SCREF THE OPCODE IF NEEDED 

| 

| 

| 


FFE9' BSBW 
SINTOUT WD INTS "op. SYMSL_ VAL (R6) ° ;OUTPUT OPCODE TO PASS 
$ DATE R OPCODE 


N 
TSTB” © SYMSL_VAL+1(R6) ; TWO-BYTE OPCO 
10$ 71F EQL NO 


BEQL 
SINC PC :YES=-UPDATE PC FOR 2-BYTE OPCODE 
10$: MOVZBL SYMSB ao _MOPNUM ;SET UP OPERAND COUNTER 
MOVAB SYMS$K =BLKSIZ (RG) = :POINT TO OPERAND MODE WORD DESCRIPTORS 
“MACSGL “MOPPTR : 


06 A695 
04 

OC A6 

0000' CF 

OD A6 

0000' CF 


: EXIT FROM MACHINE INSTRUCTION OR OPERAND--SET FOR NEXT OPERAND 


MACH_OP_EXIT: 
Clear I 
r 


ndex 
bicw2 #ELGSM -UPAFLG: FLGSM OPTVFLIDX, 4( 11 
#FLGSV—CHKLPND, (R113, 5$ : CHKL PEND! 


ex Mode sensor mies flag, 
BBCC ' 
SINTOUT_X INTS_CHKL ; YES--SEND 


; and DUpA 


04 AB 1010 8F ) 
06 6B 14 - 


Se B&F EWN NWI WIWIWInonononon Oo 


so 
> 
SOSOSOSCSOSOOSOSOSOOSOO OOOO OSOOSOSOSOSOOSOOOSOSOSOOSOOOSOOSCOOOOOOOOOOOOOOOOOOO 
OOM POO FLOP Pr rrr rrNS—-MPou 


SOOOCCOSSOSSOOOCOSOOOOOCOCOCOCOOSOCCSSCSOO SOOO OOOOOOOOOOOOOOOOOOCOO: 
BPEL FENN DINPININININPIDINID) 4 2 SS MQOQVOOCOOOCOOCOCOOOOOOOOOOOE 


POPIPOPINIPINIPONINYPINIPINININPGPINININININININPONYNYINININPININYINININYINIPUNINPIPUPININIPYNININY 2 2 OO OS 


05 EF 5$: EXTZV “HOPDSV= SIZE ,#OPD$S_SIZE,- ;GET SIZE OF OPERAND 
50  0000'DF aw*MAa cSGL MOPPTR,RO ieee 
0000°'CF 50 vO 005 MOVL  RO,W*MACSGL_OPS Ree AND STORE FOR LATER USE 
O000'CF D4 005 10$: CLRL W*MAC$GB *ROBE [CLEAR MODE, IMODE,REG, AND IREG 
0000'CF 00 005 MOVL — W*MACSGL“PSECT.~ 'START WITH CURRENT PSECT 
00' CF 5 “MACSGL_PRMSEG : 
0000'CF 59 D1 006 CMPL R9,W°MACSGL_ INTURNET [NEAR THE END OF THE INT. BUFFER? 
95 1B 006 BLEQU 208 : QU NO 
FF9E* 30 006 SBW = MAC SOUTFRAME TYES--SET UP FOR NEW BUFFER 
0000'CF 39 DO 20$:  MOVL  R9, OoMArEeL -EXPPTR : SAVE PTR TO EXPRESSION START 
0000'CF 59 DO MOVL RO. *W°MACSGL EXPEND EXPRESSION END 
0000004 BF CB 007 BISL2 #FLGSM “CORPEXPR!FLGSM_ exPOPT!FLGSA EVALEXPR,- 
6B 78 ASSUME COMPILE TIME EXPRESSION, 
7¢ : EXPRESSION OPTIMIZATION 
7¢ : AND EVALUATE ON PASS 2 


CODE GENERATION. "TW REEHRRE ROLE WARES hegcenkOHraRy., a9", 


REE BB 


MAT SAR TSTA 


MACSGL_AB SFLA - ASSUME ABSOLUTE EXPRESSION 
C$GL"PC,W LAR eSoL _SAVE_PC ;SAVE_PC FOR ERROR RECOVERY 
C$GLHIGH_32 sCLEAR HI 35° BITS IN CASE QUAD OPERAND 


MACSACTSTA MACHINE STATEMENTS 16-SEP-19 :01:1 AX/VMS Macro V04-00 Page 
v04-000 OPERAND GENERATION mt iaet 1 84 247: 13 YRACRO. SRC ACTSTA.MAR; 1 . a) 
f : -SBTTL OPERAND GENERATION 
C H 
9 : 2¢ ; FUNCTIONAL DESCRIPTION: 
08C 2$ ; OPRAND IS INVOKED WHEN A REFERENCE (OPERAND) HAS BEEN on D. 
08C a IF THERE ARE TOO ber} OPERANDS A MESSAGE IS ISSUED TO PASS 
08C 58 ; HE MODE OF THE REFERENCE IS CHECKED TO SEE IF IT IS LEGAL FOR 
: : 23 : THIS OPERAND. THE REFERENCE IS THEN EMITTED TO PASS 
$ : ] ; INPUTS: 
60 C 6 : neceet _MOPPTR POINTER TO OPERAND WORD DESCRIPTOR 
$3 64 ; MACS$GB_MODE MODE OF OPERAND 
008C o> 3 
$5 68 ; OUTPUTS: 
008C 68 ; THE INTERMEDIATE CODE FOR THIS OPERAND IS EMITTED TO THE 
008C 69 ; INTERMEDIATE FILE. 
008C 70 ; 
008C 71 3-- 
008C 6 
008C 73 OPRAND:: ;OPERANDS = REF 
43 iS ;OPERANDS = OPERANDS DCOMMA REF 
0000'CF D5 O008C 76 TSTL W*MACSGL_MOPNUM ;SHOULD WE REALLY BE HERE? 
11 14 0090 77 BGT 31F GTR bone CONTINUE 
0092 78 oan JERR ieee ; Else s error neegoue code 
FF66" 30 0097 279 MACSERR 3 SEND ERROR TO PAS 
0000'CF 0000'CF DO QOO9A 280 MOVE UARACSCL_ SAVE _PC,W* MACSGL PC tote Y PC TO A COUNT OPERAND 
97 11 OOAI 281 BRB MACH_OP sFINISH UP THIS OP 
56 0000'DF 3C O0A3 soe 10$: MOVZWL a@W*MACSGL_MOPPTR,R6 :GET OPER RAND DESC. WORD THIS OPRAND 
22 9 EF ee $87 EXTZV #OPD$V * ROBE. OPOPD$s -MODE ,~ “HTD R = OPERAND MODE 
54 Q000'CF 9A QOAD $82 MOVZBL W°MACS$GB MODE .R [GET OPERAND MODE WE SCANNED 
50  Q0000000°EF45 3C 00B2 86 MOVZWL L“MACSAW- 1 ROnTBCRSD. RO :GET TABLE ENTRY ms... ACCESS MODE 
1450 54 E1 OOBA 287 BSC Ra. RO ;BRANCH IF LEGAL MODE 
Bnet 288 SMAC_ERR ILLMODE ; 1S afar message code 
05 54 91 O0C 289 CMPB” R4,#ADMS_REGISTER : is a soregstng mode register? 
05 12 00C6 4 BNEQ NEQ 
FF35° 30 00C8 91 BSBW MACSERRORPX ‘step Ermer TO PASS 2 
03 11 00CB 35 BRB 16$ 
00CD 935 14$: 
FF30° 30 000 3¢ 168 BSBW MACSERRORPT ; Send error to pass-2 
56 D4 $08 96 CLRL RS sUSE ZERO DESCRIPTOR 
0000 CF 02 ¢O 00D 97 20$: ADDL2 #2,W*MACSGL_MOPPTR S ADVAN NCE TO NEXT DESCRIPTOR 
O000'CF 07 00D7 98 DECL W*MACSGL_MOPNUM :DECREMENT OPERAND COUNT 
F 12 00DB 99 BNEQ Sos TIF NEQ THEN NOT LAST OPERAND 
QO0O'CF B11 O0DD 00 CMP W*MACSGL_ERRPTX,=- ;LAST OPERAND=--FIRST ON LINE? 
0000' 8F 0E1 01 FMACSAB_ LINEBF ; 
06 3 OE4 08 BEQL 30$ z1F EQL YES 
OD é«€C DES 03 - BBCS #OPFSV -LASTOPR - *NO--MARK LAST OPERAND 
00 0000' CF E 04 WAMACSGL OPsi ze 
4 6B 33 EC 82 30$: BBS orev. COMPEXPR, R11) 408 ; tigi IF whet ta et 
OD 68 E FO $ BBCC #FLGSV_EXPOPT, (R11) ,50$ ; sELSE F LAG UNABLE TO OPTIMIZE 
09 6B O07 €1 OOF4 07 40$: BBC #FLGSV-EXPOPT, (R11) ,50$ ‘BRANCH IF UNABLE TO OPTIMIZE 


MACSACTSTA MACHINE STATEMENTS gs at be :01: 1% vax X/VMS Macro V04-00 Page 
v04-000 OPERAND GENERATION SEP=1984 247:1 MACRO.SRCJACTSTA.MAR; 1 
i'd 39 OF8 oe BSBW MACSOPTIMIZEXPR Hg Te EXPRESSION 
C E OFB BBCS #OPFSV_OPTEXP ARK OPTIMIZED 
00 000" CF OFD 310 W*MA c$6L_ OPSIZE, 508 
QOA1 8F 6 Bi 101 11 508: CMPW R #OPDSM 88 BRANCH DESTINATION? 
E 13 1 g i BEQL TIF EQL YES 
00C2 8F 6 Bi 1 1 CMPW R #OPD$SM_BW ;BRANCH DESTINATION? 
03 13 0100 314 BEQL 46s«55$ t1F EQL YES 
OO8E 31 O10F 15 BRW 120$ ELSE NOT A GRANCH DESTINATION 
0112 16 55$ SINC_PC sYES--UPDATE PC F R BRANCH WORD 
OF 2000' CF 91 0116 17 60$ spor W*MACSGB_VAL3,#REG$_PC ;REGISTER MUST BES *PC’ 
0B 13° 0118 18 BEQ sIF EQL OK 
8438 1 shat ERR it BRDEST 3 jt ega. branch destination 
FEDB' 30 1 3 $y MACSERRORPX :SEND ERROR TO PASS 2 
OOF4 31 1 ; 1 Bau” 1 ;FINISH 
OA 0000'CF 91 0128 $6 70$: CMPB W*MACSGB_MODE ,AADM$_BYTE_DISP ;CORRECT BRANCH SIZE 
06 12 012d ; BNEQ 80$ 
O12F 324 $DEC_PC : 
13 11 0133 325 BRB 100$ ; JOIN COMMON CODE 
oc 0000" CF 91 0135 326 80$: CMPB W*MACSGB_MODE , #ADM$_WORD_DISP 
07 12 O13A 327 BNEQ 90$ 
013c 40— 328 SDEC_PC #2 
05 11 0141 ; 3 RB \90s 
0143 0 90$: SDEC_PC #4 
7E 94 0148 331 1008: CLRB -(SP) ;ASSUME NOT OPTIMIZED 
53 0000' CF DO O14A 336 MOVL W*MACS$GL_EXPOPVL1,R3 GET (MAYBE) OPTIMIZED VALUE 
68 07 EO O14F 33 BBS WFLOSY _EXPOPT, (R11), 1108" e's ibe WE OPTIMIZED 
53 04 0153 334 CLRL pe ASSUME GLOBAL 
52 0000'CF DO 0155 335 MOVL W*MACSGL_EXPPTR,R2 ‘GET UET PRESSION POINTER 
50 O000'CF 52 C3 Bien 338 1048 SUBL3 R2,W*MACSGL _EXPEND, RO : COMPUTE SIZE OF EXPRESSION 
28 13° 0160 $30 BEQL 110$ sar avee NO EXPRESSION 
a Dt the 39 CMPL RO, #6 76 B YTES? 
11. 13 0165 340 BEQL 106$ : Yes if EQL 
17 O1A2 91 0167 341 CMPB 1(R2) ,MINTS_NEWL : Is it a new-line? 
1D 12 0168 <08 BNEQ 110$ ; No if NEQ 
51 62 9A 0160 34 MOVZBL (R2),R1 ; Get frame Length 
52. 551 = COs«0170 ste ores R1,Re ; Point to next frame : 
oe | ee ee te. 45 SUBL R1,R0 3: and reduce size of expression 
E8 11 0176 346 BRB 104$ 
0178 47 106$: 
2D 01 A2 91 6178 48 CMPB 1(R2) ,MINTS_STKS sYES--STACK SYMBOL REFERENCE? 
0c is 017C 49 BNEQ 110$ 31F NE 
53 02 A2 1) O17E 350 MOVL 2(R2),R3 ;YES--GET ID ADDRESS 
6E 0000'CF 90 §186 $2) MOVB W°MAC$GL_PSECT, (SP) ;MUST BE IN SAME PSECT 
02 A2 04 1 26 eLRL 2(R2) sFLAG SPECIAL RESOLUTION 
50 09 QA BISA 53 110$: MOVZBL #9,RO 3 WE OUTPUT 9 BYTES 
FE70" 30 018D 354 BSBW  MACSINTOUT_N [MAKE ROOM FOR THEM 
89 OE 90 139 55 MOVB #INT$_BDST,(R9)+ sSTORE nF COD 
89 Q000'CF BO 19 2$ MOVW W°MACSGL_OPSIZE,(R9)+ oth a .. 
89 53 DO 198 5 MOVL R3,(R9)+ STORE 2, & SYMBOL ID ADDRESS 
89 BE 90 198 28 MOVB ( 6)+,(R9)+ STORE OR PSECT NUMBER 
7C 11 75 5 BRB 150$ 
1A 60 ; 
DIAG o ; NOT BRANCH DESTINATION 
14 6B 24 3 1A0 86 120$: BBC #FLGSV_UPAFLG,(R11),125$ ;BRANCH IF DUPA WAS NOT SEEN 
OF 0000° CF 1 O1A4 64 CMPB w*MACSGB REG, HREGS_ PC sYES-=1S REGISTER PC? 


| MAC 
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v04-000 OPERAND GENERATION mie) 7 aE YRACRO SRE IAC ACTSTA.MAR; 1 ° (5). v04 
gp 1 109-365 BNEQ 125$ :1F NEQ NO 
OA 54 91 O1AB 66 CMPB ss RG WADMS$_BYTE_DISP SYES--1S MODE LEGAL? 
08 19 O1A 6 BLSS SIF L 
1B 68 SMAC_ERR OPRNDSYNX ;NO==TELL OF OPERAND SYNTAX ERROR 
FE48' 30 01B $9 BSBW”  MACSERRORPT vent 
1A 6B 07 €1 0188 0 125$: BBC Han V_EXPOPT,(R11),130$ ;BRANCH IF CANNOT OPTIMIZE | 
50 Oc SA O1BC 371 MOVZBL #12,RO™ :SET TO STORE 12 BYTES | 
FEE 30 1BF cg BSBW  MAC$INTOU :SET UP FOR IT 
89 iE 90 bite 7 MOVB = #INTS EF TRO) :STORE INT. CODE 
89 OO000'CF DO OIC 74 MOVL WTMACSGL_V (R9)+  sSTORE REGISTERS/MODES | 
89 O000'CF BO OCA 375 MOVW © WAMACSG OPS TSE  tRO)+ SSTORE FLAGS | 
89 O000'CF DO OCF id: MOVL nya tie ~EXPOPVL (ROD 4 ‘STORE OPTIMIZED VALUE | 
13° 11 «0104~=—s 37 BRB 1408. | 
50 08 9A 0106 378 130$:  MOVZBL :SET TO STORE 8 BYTES | 
FE24" 30 0109 379 BSBW sect enTO ‘SET UP FOR IT 
89 1€ 90 O1DC 380 MOVB = MINTS REF. TRO) ‘STORE INT. CODE 
89 OO000'CF DO O1DF 381 MOVL  W*MACSGL OALUE, (R9)+  ;STORE MODES/REGISTERS 
89 O000'CF BO OIE, Be | MOV U*MACSGL “OPSIZE,(R9)+  ;STORE FLAGS | 
01 OOOO'CF 91 QO1E9 384 CMPB W*MACSGL_VALUE ,4ADM$S_IMMEDIATE ; Is address mode immediate? 
ec te Gee 385 BNEQ 150$ : No if NEQ 
08 #QO00'CF 91 O1FO0 386 CMPB W*MACSGL_OPSIZE ,#8 : Is operand a QUAD or OCTA value? 
25 19 O1FS 387 BLSS No_if LSS 
O1F7 «388 SINTOUT_LW INTS_STIL,<W*MACSGL “HiGH 32> ; Output bits 32-63 
10 O000'CF 91 0201 389 CMPB “W*MACSGC_OPSIZE,#16 ; 13 operand an OCTA value? 
14 12 0206 390 BNEQ 1508 oT NEQ 
0208 391 SINTOUT_LW INTS_STIL,<W*MACSGQ_ wich” 64+0> ; Output bits 64-95 
0212 392 SINTOUT_LW INTS-STIL,<W*MAC$GQ-HIGH 64+4> ; and then bits 96-127 
QO00'CF 02 90 O021C 393 150$: MOVB “#RDX$V DECIMAL. W°MACSGB_RDXNDX ;RESET RADIX 
FE16 31 0221 394 BRW MACH OP EXIT 


MACSACTSTA MACHINE STATEMENTS 16-SEP-1984 02:01:19 VAX/VMS Macro V04-00 Page 
v04-000 ASSIGNMENT STATMENTS mi et 7 aE ERACRO. SRE ACTSTA.MAR; 1 . 
96 .SBTTL ASSIGNMENT STATMENTS 
98 ;++ 
99 : FUNCTIONAL DESCRIPTION: 
01: THESE ROUTINES ARE INOVKED WHEN AN ASSIGNMENT STATMENT 
0¢ : IS DETECTED. IF ENTRY AT ASSHD3, IT IS FLAGGED AS AN 
; ASSIGNMENT TO ‘PC’. af ENTRY AT ASSHDS, THE SYMBOL 
; 1S FLAGGED AS GLOBAL. 
: INPUTS: 
: MACSAL_VALSTACK=8[R7]  (ASSHD2) SYMBOL BLOCK OF ID 
: MACSAL-VALSTACK=4CR7]  (ASSHD1) SYMBOL BLOCK OF ID 
> OUTPUTS: 
: MACSGL_ASNPTR POINTER TO SYMBOL BLOCK OF ID 
; MACSGL_OPSIZE 4 
ASSHD3:: SASSIGN_HEAD = DPC 


50 FF 8F 98 


:MARK PC AUGMENTATION 
18 «11 


#-1,R0 
ASSIGN_HEAD 
ASSHD2:: SSIGN HEAD = ID DEQ DEQ 


MOVL W*MACSAL_VALSTACK-8(R7), ae POINT TO ID SYMBOL BLOCK 
09 AO 0 A8 BISW2 #SYMS$M_GCOBL,SYM$W FLAG(RO)’ :MARK SYMBOL AS GLOBAL 
09 AO 0800 8F AB BISW2 #SYMSM M-RELPSECT, SYMSW_ FLAG(RO) ;ALWAYS OUTPUT GLOBAL SYMBOL 
06 11 BRB ASSIGN_HEAD 
ASSHD1:: SSIGN HEAD = ID DEQ 
50 FFFC'CF47 00 M W*MACSAL_VALSTACK~4(R7]), kO°; ;POINT TO 1D SYMBOL BLOCK 


OVL 
ASSIGN_HEAD: 
MOVL 


QOOOO'CF § 50 RO,W*MACSGL_ASNPTR 4 vt, POINTER TO ID 
0000" D4 CLRL W*MACSGL_PRASEG LLOW EXPRESSION IN ANY pam 
00 68 06 €E5 BBCC #FLGS$V PEVALEXPR, (R11) 108" DON’ T EVALUATE EXPRESSION 
00002004 8F 10$: BISL2 #FLGSM~COMPEXPR!FLGSM =OPRND = ;ASSUME COMP HN TIME EXPR 
68 (R11) AND FLAG IN OPERAND FIELD 
QOOO'CF D4 CLRL W*“MACSGL_ABSFLAG ;ASSUME ABSOLUTE EXP PRESSION 
QOOOO'CF 04 QA MOVZBL #4,W*MACSGL_OPSIZE :SET OPERAND MAX SIZE TO 4 BYTES 


: IF CREFFING, SAVE LINE/PAGE SO THEY ARE CORRECT 
: BBC #FLGSV_CRF,(R11),30$ | ;BRANCH IF NOT CREFFING 


MOVL W*MACSGL_SRCPAG,- TYES=-SAVE SOURCE PAGE 
W*MACSGL~SAV_PAG 

MOVL § W*MACSGL“LINBAS,- ;SAVE LINE BASE 
W*MACSGL~SAV_BAS 

MOVL W°MACSGL~LINENUM,RO ;GET THE LINE NUMBER 


BBC #FLGSV SEGFIL (R11),20$ :BRANCH IF NOT SEQUENCED 
MOVL W*MACSGL_RECHOBUF,RO  :YES--GET SEQUENCE NUMBER 
MOVL RO,W Soar Scr _SAV_ Ul EN [AND SAVE LINE NUMBER 


CONN NNO AAO MMMM UII ES BB BS BAIN NIA AIR PON PON NONI NO NONONONONOMONINONONOMIPONIPONOMUNONONYD 
PAPHKR $M SNWTAAHSRMNAMDNVNVOOO SLOP RP POLL LALA LR LR RSLS ELE RPL LPL ZH 
Fee a et ot ot at at a UUM UUM UMUMUMMARMAUMUAUMAAUAUAAMAAMAAAMAMAMUMa eee 


Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
8 
50 FFF8'CF47 DO 0 
9A 4 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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MACSACTSTA NE STATEMENTS 16~SEP=1984 02:01:19 VAX/VMS Macro V04-00 Page 
v04=000 NMENT STATMENTS §- -SEP- =}38% OF: 147:15 YRACROSRe ACTSTA.MAR; 1 . 
453 ;+ 
tee 3 FUNCTIONAL DESCRIPTION: 
46 ; ASSGN1 IS INVOKED TO FINISH PROCESSING AN ASSIGNMENT STATEMENT. 
5 6457: THE EXPRESSION BEEN EVALUATED, AND IS ON THE VALUE STACK. 
85 498 ; IF THE ASSIGNMENT 1S TO THE PC, CODE IS EMITTED TO THE INTERMEDIATE 
85 459 : FILE TO AUGMENT THE PC. IF THE ASSIGNMENT IS NOT TO PC, A 
85 460: CHECK IS MADE FOR A MULTIPLE LABEL DEFINITION, AND THEN THE 
0285 461: FLAGS IN THE SYMBOL BLOCK ARE UPDATED. CODE [S$ EMITTED TO 
8 8 re) 3 THE INTERMEDIATE FILE TO UPDATE THE SYMBOL BLOCK IN PASS 2. 
8 8 bt: : INPUTS: 
0285 466: MACSGL_ASNPTR (=1) IF PC AUGMENTATION, ELSE POINTER 
0285 467: TO SYMBOL BLOCK OF ID. 
028) 468 ; MACSAL_VALSTACK=4CR7] EXPRESSION VALUE 
0285 469: 
0285 470 : OUTPUTS: 
0285 471; 
0285 47g ; 
0285 473 :-- 
0285 47% 
0285 475 ASSGN1:: ASSIGNMENT = ASSIGN HEAD EXPR DEOL 
56 O000'CF DO 0285 476 MOVL §W*MACSGL_ASNPTR,R6 POINTER TO ID SYMBOL BLOCK 
08 68 02 £0 028A 477 BBS #FLGSV_COMPEXPR. (R11), 108°. EAUST BE COMPILE TIME OF PRESSION 
oseg 478 Shc ERR ASGNMATSYN ; No=-send message to pass 2 
FD6A' 30 0293 479 MACSERRORPT 
50 56 01 C1 0296 480 108: rite #1,R6,RO i18 THIS PC ASSIGNMENT (R6=-17)? 
22 12 O29A 481 BNEQ 20$ EQ NO 
FD61" 30 029C 482 BSBW MACSSE eves: RECORD HI MARK OF PC 
56 sO FFFC'CE47 «000 ~O029F 6483 MOVL. W*MAC$ SAC VALSTACK=6CR71., R6 GET N Ww VALU 
55 56 OO00'CF C3 O2A5 484 SUBL3 W*MACS$GL~PC,R6,R5 COMP UTE AUGMENTATION 
OoAB 485 SINTOUT_LW INTS tug bate RS SEND PASS 2 
0000'CF 56 DO 0283 486 MOVL ~R6,W°MA tse. :SET NEW PC 
FD45" 30 02BB 487 BSBU MACSSET_ PC [CHECK NEW PC 
008) 31 O2BB 488 BRW 80$ ; 
O2BE 489; 
OgBE 430 : EXPRESSION DOES NOT INVOLVE PC 
08 09 A6) «O03-)sé€E* OBE 492 20$: BBC #SYMSV EXTRN, SYMSW_FLAG(R6) , 308 sEXTERNAL? 
02C 49 $SMAC ERR SYRD cCEX Yes-er 
FD35* 30 0208 494 BSBW  MACSERR one $ ISSUE ERROR TO PASS 2 
OOAE 30 O2CB 495 30$: BSBW MACSMU “SEE IF MULTIPLY DEFINED 
OC A6 0000'CF 90 gcE 49 MOVB WMACSEC. ERASEG, SYM$B_SE G(R6 6) sDEF INE IN EXPRESSION PSECT 
09 A6 610) «AA «(020449 BICw2 #SYHSR ABS, SYMSW FLAGtRS 6) ; ASSUME NOT ABSOLUT 
0000'CF DS 0208 498 TSTL SRACSCL _ABSFLAG™ 18 EX PRESSION ABSOLUTE? 
12 02DC 499 BNEQ Sos [IF NEQ NO 
0c 94 O2DE 500 CLRB SYM$B_SEG(R6) ig eh ABSOLUTE PSECT 
0009 a6 «004~=«CE3:s«02E1~=—s «501 BBCS #SYM$0_ABS,SYMSW FLAG(RG) $ ;SET ABSOLUTE FLAG 
09 09 A6 06 £0 0266 208 50$: BBS #SYMSV~LOCAL, SYMSW LAG(RG) .608 s1S SYMBOL LOCAL? 
4 0005'CF €9 O2EB 20 BLBC wWENBSG SEBUGSSYRSC. VAL ,.60$ ‘NO=-BRANCH IF NO ENABLE DEBUG 
09 A620) «SAB «CRF Os «5504 BISW2 #SYM$M DEBUG, SYMSW FLAG(RO) sLET’ DEBUGGER KNOW ABOUT S$ 
0S AG FFFC'CF4?~=——0 rs 505 60$: MOVL W*MACSAL VALSTACK=S R7 ,- :PUT IN SYMBOL VALUE 
0101 8F AB OoFB 88 BISw2 #SYMSM_DEF'SYRSM ASN,- ;MARK AS DEFINED BY ASSIGNMENT 
9 A6 FF 508 SYMSW_FLAG(RO) 
55 00°BF 9A 0301 509 MOVZBL #CRFSK_DEF,R5 :SET DEFINITION FLAG 
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v04=000 ASSIGNMENT STATMENTS “SEP-1984 01:47:15 [CMACRO.SRCJACTSTA.MAR; 1 (7 
QOOO'CF oD 05 319 PUSHL W*MACS$GL_LINBAS ;GET READY TO SET RIGHT LINE/PAGE 
9000" CF DD 9 «(511 PUSHL W*MACSGL-LINENUM 7BY SAVING CURRENT VALUES 
OOO'CF DD 030D 13 PUSHL W*MACS$GL-SRCPAG oe 
QOOO'CF DD 0311 1 PUSHL W*MACS$GL"RECHDBUF 
OOO'CF DO 0315 514 MOVL W*MACSGL"SAV_BAS,- ;NOW SET VALUES WE WANT 
000'CF 0 19 213 W*MACSGL_LINBAS 
50  QOO0'CF »b0 1¢ 18 MOVL W*MACSGL_SAV_LIN,RO 
OOOO'CF 50 dO 0321 51 MOVL RO,W*MACSGL_CINENUM 
0000'CF 50 DO 0326 518 MOVL  RO,W*MACSGL~RECHDBUF 7 (IN CASE SEQUENCED FILE) 
OO000'CF DO 0328 219 MOVL § W*MACSGL_SAV_PAG,- 
0000' CF O32F 0 W*MACSGL_SRCPAG 
FCCB’ 30 03 : 1 BSBW MACSCREF_SYM sOUTPUT TO CREF IF CREFFING 
QOO0'CF BEDO i POPL  W*MACS$GL-RECHDBUF ;RESTORE OLD LINES/PAGES 
QO000'CF BEDO 033A POPL W*MACS$GL-SRCPAG ; 
QOOO'CF BEDO O33F 524 POPL § W*MACSGL-LINENUM ; 
QOOO0'CF BEDO 0344 525 POPL  W*MACSGL~LINBAS : 
10 19 0 49 526 BSBB MACSINTOOT_ASN “OUTPUT ASN TO INTERMED. FILE 
0068 06 E 48 2 7 80$: BBCS _ #FLGSV EVACEXPR, (R11) ,90$ ;ALLOW EXPRESSION EVALUATION 
- O34F 3 8 90$: SINTOUT LW INTS_PRIL,<WAMACSAL_VALSTACK=4CR7J> ;PRINT EXPRESSION 
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++ 

; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE OUTPUTS AN ASSIGN COMMAND AND DATA TO THE 
: INTERMEDIATE FILE. 


; INPUTS: 
R6 POINTS TO SYMBOL BLOCK 


MACSINTOUT_ASN:: 


BOvzeL "#12,R sSIZE OF AN ASN COMMAND AND DATA 
BSB RACSINTOUT [MAKE ROOM Rat 
move #INTS ASN, tR9)+ :STORE THE 
MOVL R6, :STORE SYMBOL "BLOCK ADDRESS 
MOVB SYMSB_ SEG(RO), (R9) + sSTORE SYMBOL SEGMENT 
MOVL SYMSL_VAL(R6) , (R9)+ : STORE SYMBOL VALUE 
CLRL R ASSUME ABSOLUTE 
BBS #SYMSV_ABS, SYMSW_ FLAG(R6S, 108 ZBRANCH IF ABSOLUTE 
INCL RO :NO=-MAKE RELOCATABLE 
108: MOVE RO, (R9)+ STORE ABS/REL FLAG 


;++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CHECKS FOR A MULTIPLY DEFINED LABEL. IF THE 
1 ae MULTIPLY DEFINED, AN ERROR MESSAGE IS ISSUED TO 


; INPUTS: 
R6 SYMBOL BLOCK ADDRESS 


MACSMUL _DEF _CHK: 
“BBC” aSYMSV DEF ,SYMSW_FLAG(R6 
BBS #SYMSV~ ‘ee SYMSW_FLAG(R6 
— ERR MULDEFLB 

MACSERROR PT 
10$: BLBC W*ENBSG_SUPPRESS+SYMSL vi 


E TO P 2 
O$ ;BRANCH IF NOT ENABLE SUPPRESSION 
B1sW2 #SYMSM_SUPR,SYMSW_FLAGTR 


eYESSET SUPPRESS BIT THIS SYMBOL 


fo. ad 


H 8 
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v04-000 BLOCK DATA STORAGE DIRECTIVES -SEP-1984 aE: ERACRO SRe ACTSTA.MAR; 1 0). 
aA 78 .SBTTL BLOCK DATA STORAGE DIRECTIVES 
9A 0 ;++ 
9A 1 : FUNCTIONAL DESCRIPTION: | 
6 9A : : THESE ROUTINES (BLKBYT, BLKWRD, BLKLNG, BLKQUD AND BLKOCT) ARE 
9A 4; CALLED WHEN A BLOCK DATA DIRECTIVE IS SCANNED. THE 
039A 5: HIFT COUNT FOR THE PARTICULAR DATA TYPE IS SET INTO 
9A 6 : MACSGL_VALUE AND FLAGS ARE SET TO SCAN THE EXPRESSION 
9A fi INDICATED THE NUMBER OF UNITS OF STORAGE TO ALLOCATE. 
039A 3 : OUTPUTS: 
039A 591: MACSGL_VALUE § SHIFT COUNT TO SHIFT NUMBER OF UNITS INTO BYTES 
039A 36 : MACSGL-FLAGS | FLGSM_COMPEXPR IS SET (LOOK FOR COMPILE TIME EXPRESSION 
O59 093 : FLGSM~EVALEXPR IS CLEARED (DON'T EVALUATE ON PASS 2) | 
039A 295 te- 
039A 596 
039A 597 .ENABL LSB 
039A 598 
039A 599 BLKBYT:: ;BLOCK_TYPE = KBLKB 
0D 10 039A 600 BSBB «108 :GO TO-COMMON ROUTINE 
00 039¢ 601 .BYTE 0 :SHIFT ALLOCATION 0 
039D rae BLKWRD: : ;BLOCK_TYPE = KBLKW 
0A 10 039D 604 BSBB «108 [GO TO-COMMON ROUTINE | 
01 O39F 605 .BYTE 1 [SHIFT ALLOCATION ONCE | 
03A0 606 
03A0 607 BLKLNG:: ;BLOCK_TYPE = KBLKL 
O3A0 608 : OR KLBKA 
03A0 609 5 OR KBLKF 
07 10 O3A0 610 BSBB «108 :GO TO COMMON ROUTINE 
02 O5A¢ 611 .BYTE 2 :SHIFT ALLOCATION TWICE 
03A3 gi BLKQUD: : ;BLOCK_TYPE = KBLKQ 
O3A3 614 : OR KBLKD 
O3A 615 3 R KBLKG 
04 10 O3A $16 BSBB. «108 :GO TO COMMON ROUTINE 
03 O3A5 617 .BYTE 3 ‘SHIFT ALLOCATION THREE TIMES 
03A6 619 BLKOCT:: sBLOCK TYPE = KBLKO 
03A6 620 : OR _KBLKH 
01 10 O5A6 621 BSBB. «108 'GOTO COMMON ROUTINE | 
04 0 Ag 6 2 -BYTE 4 ‘SHIFT ALLOCATION FOUR TIMES | 
0000'CF 9E 9A O39 624 10$:  MOVZBL @(SP)+,W*MACSGL_VALUE ;SET SHIFT COUNT AS VALUE 
68 04 (CB O3AE 625 BISL2 #FLG$M.COMPEXPR>(R11) :LOOK FOR COMPILE TIME EXPRESSION 
0068 06 €5 0381 6 : BBCC #FLGSVEVALEXPR,(R11),.+1 ;DON'T OUTPUT EXPRESSION TO PASS 2 
O000'CF D4 0385 6 CLRL W*MACSGL_ABSFLAG ;LOOK FOR ABSOLUTE EXPRESSION 
05 0389 628 RSB 
3BA 629 | 
BA 630 .DSABL LSB 
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T$ 
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BSTAT1: 


BSTAT2:: 


10$: 


20$: 


30$: 


Ver $ee 1386 89: 


FUNCTIONAL DESCRIPTION: 


THESE TWO ROUTINES (B 

BLOCK DATA DIRECTIVES 

-ENABL LSB 

‘wovzaL #1,R6 
W°MACSAL_VALSTACKLR7], RS: 

BRO” 10$ 

"MOVL « =—- W°MACSAL_VALSTACKER7) RO: 

MOVL  W*MACSAL » ape 

BSBW MACSSET C 

sit W*MACSGC_ABSFLAG 


BEQL 

SMAC_ERR BLKEXPNABS 
BSBW MACSERRORPT 
iy a 


SINTOUT ts Tats: AUGPC ,R6 
SINC_P 


01:19 mee Macro V04-00 
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niger AND BSTAT2) FINISH PROCESSING OF 


Se tee 
Qavow 
mmr 
47O 
>o 
“Cx 
xm 
man 


TES 
ENT PC BY THAT MANY BYTES 


NCR ERENT PC FOR PASS 1 ALSO 
SINTOUT_LW INTS_PRIL,<W*MACSGL ain sLIST NEW PC 
BeCs “#FLGSV_ EVALEXPR,(R11),30$ ;ALLOW EXPRESSION EVALUATION ON PASS 2 AGA 
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v0G= LABEL DEFINITIONS SEP=1984 01:47:15 CMACRO.SRCJACTSTA.MAR; 1 
i 665 .SBTTL LABEL DEFINITIONS 
404 $9 -ENABL LSB 
toe 869 +s 
404 676 t FUNCTIONAL DESCRIPTION: 
404 676 : THESE ROUTINES DEFINE LABELS. IF ENTRY IS AT LBL2 THE LABEL 
404 673 ; 1S DEF INED GLOBALLY. IF ENTRY IS AT LBL1 THE LABEL IS DEFINED 
Z rs ere s AS A LOCAL LABEL. 
Bia 676 inputs: 
0404 678: MACSAL_VALSTACK=8(R7] (LBL2) SYMBOL BLOCK ADDRESS OF ID 
0404 679 MACSAL-VALSTACK=4CR7] (LBL1) SYMBOL BLOCK ADDRESS OF ID 
0404 esi : OUTPUTS: 
0404 eas ; MACSGL_LSB INCREMENTED IF NOT LOCAL LABEL 
0404 684: AND ‘ENABL LSB' 
0404 685 ; 
0404 68¢ io 
0404 68 
0404 688 -ENABL LS? 
0404 690 LBL2:: LABEL = !D DCOLON DCOLON 
56 FFFB'CF47 DO 0404 691 MOVL. W*MACSAL_VALSTACK-8(R7], he <POINT TO ID SY YMBOL BLOCK 
09 A604 «= AB«CO40AS 69 BISW2 #SYMS$M_GCOBL,SYMSW FragtRe) :MARK AS GLOBAL SYMBOL 
09 A6 0800 BF AB 040E 69 BISW2  #SYMSMTRELPSECT,SYMSW_FLAG(R6) ;ALWAYS OUTPUT GLOBAL SYMBOL 
06 11 0414 694 BRB 10$ 
0416 696 LBL1:: EL = ID DCOLON 
56 FFFC'CF47 = 00 0416 697 ii MOVL § W*MACSAL_VALSTACK-4(R7), ig? ;POINT TO ID SYMBOL BLOCK 
bei 699 LBL_X: NTRY FOR .ENTRY 
1209 A6 06 £0 041C 700 BBS #SYMSV_LOCAL, SYMSW FLAG(RED. 30$ ;BRANCH IF L LOCAL SYMBOL 
03 0005'CF . 0421 701 BLBS  W*ENBSG_LOCALSYMB+SYMSL_VAL.20$ ;BRANCH IF ENABLE LSB 
FBD7" 30 0426 108 BSBW  MACSSET-NEW LSB -NO= “WAKE A NE ise. 
05 0005'CF €9 04 9 708 208:  BLBC  W*ENBSG ~DEBOG?SYMSL VAL, 308 j ANCH IF NO ENABLE DEBUG 
0009 a6 «00S)S—CES) (04 E 704 BBCS #SYMSV _BEBUG,SYMSW_FLAG(R6 mie ;NO=-TELL DEBUGGER ABOUT SYMBOL 
809 A6 00 €E1 04 705 30$: BBC YMSV~DEF ,SYMSW_ FCAG(RG) , 468-5 ;SYMBOL ALREADY DEFINED? 
0438 706 SMAC_ERR n’RULDEFL aL ‘ Yes--send message 
FBC)’ 30 0430 707 BSW”  MACSERR 
0809 a6 «OO8)—séE;? 440 7 : 40$: BBC #SYME EXTEN. SYMSW_ FLAG(R6),50$ ;1S$ SYMBO!. EXTERNAL? 
44 7 SMAC_ERR SYMDCCEX ; Yes--send message 
FBB3' 30 044A 710 BSBW” MACSER ROR pt 
05 AG 0000'CF 00 440 711 50$: MOVL UMACSCL _PC,SYMSL_VAL(R6)_ ;SET pr"Bot VALUE 
OC A6  0000'CF 90 045 ar MOVE W*MACSGL~PSECT,SYMSB_SEG(RO) ;SET PSECT NUMBER OF SYMBOL 
01 AB 0459 71 BISW2 #SYMSM_DEF,SYMSW FLAGURO) MARR A As NE 
"CF 00 45D 714 MOVL W°MACSGL_PSECTPTR,RS INT TO CURRENT PSECT 
04 00 ASO 46¢ 715 BBS #PSCSV_ EL PScsu OPTIONSER ),60$ ;BRANCH IF RELOCATABLE 
09 A610 Ag 46 216 BI Suz £ “ABS. SYMSW-FLAG(R6) ;NO--FLAG SYMBOL AS ABSOLUTE 
09 AS 0080 BF A 468 717 60$:  BISW2 #SYMSM-REF /PSCSU_FLAGCR ) ; MARK PSECT AS REFEREN geD 
55 00'BF 9A Oc79 919 ROVZBL “benise DEFCAS CET DEFINITION 
FB80" 31 470 £20 BRW MACSCREF_SYM ‘CREF SYMBOL IF CROSS REFERENCING 
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y04~000 DATA GENERATION DIRECTIVES met 84: OF}? MACRO. SRCJACTSTA.MAR; 1 9° 2) Tal 
4 g 4 «SBTTL DATA GENERATION DIRECTIVES 
4 7 . 
4 ? $ : FUNCTIONAL DESCRIPTION: | 
4 7 § : BYTE/WORD/LONG/QUAD/SGNBYT/SGNWRD/OCTA ARE CALLED WHEN THE CORRESPONDING 
4 730 : DATA GENERATI IRECTIVE IS SCANNED. FLAGS ARE SET FOR THE 
480 731: ROUTINES DALST2, DALST1, AND DATNUL TO PROCESS THE FOLLOWING 
480 7 5 ; DATA ITEMS. 
4 0 7 o 
0480 734 :-- 
4 0 735 
4 7 : BYTE:: sDATA_TYPE = KBYTE 
00 oD ret: 7 PUSHL #0 ‘STACK INDEX 
1F 610 04 738 BSBB_ - DAT_COM :GO TO COMMON ROUTINE 
01 0484 739 .BYTE 1 :1 BYTE PER ITEM 
0485 740 
0485 741 WORD :DATA TYPE = KWORD 
01 pd 0485 14g PUSHL #1 SSTACR INDEX 
1A 10 0487 «74 BSBB_ = DAT_COM :G0 TO LOREON ROUT INE 
02 0489 744 .BYTE 2 :TWO BYTES PER ITEM 
048A 745 
048A 746 LONG:: :DATA_TYPE = KLONG 
02 048A 747 PUSHL #2 [STACK INDEX 
1 10 048C 748 BSBB_ - DAT_COM [GO TO COMMON ROUTINE 
O4BE 149 .BYTE 4 :FOUR BYTES PER ITEM 
048F 751 QUAD:: SDATA TYPE = KQUAD 
03 DD O048F 13 PUSHL #3 SSTACR INDEX 
10 10 0491 75 BSBB_ ss DAT_COM :60 TO LORMON ROUTINE 
08 0495 134 .BYTE 8 SEIGHT BYTES PER ITEM 
0494 756 SGNBYT:: :DATA_TYPE = KSGNB 
04 DD 0494 757 PUSHL #4 STA ACR INDEX 
0B 10 0496 758 BSBB_ —- DAT_COM :GO TO COMMON ROUTINE 
01 0498 759 .BYTE 1 [ONE BYTE PER ITEM 
0499 760 
0499 761 SGNWRD:: sDATA_TYPE = ; am 
05 pd 0499 16¢ PUSHL #5 :STA ACR IN 
06 10 0498 76 BSBB_ — DAT_COM 0 TO 0 COMMON ROUT INE 
02 oi3e £64 .BYTE 2 ‘$00 BYTES PER ITEM 
49—E 766 OCTA:: :DATA_TYPE = KOCTA 
06 DD 049E 767 PUSHL #6 ?STACR INDEX 
1 10 0440 76 BSBB_ ss DAT_COM :GOTO COMMON ROUTINE 
10 04A2 7 .BYTE 16 [SIXTEEN BYTES PER ITEM 
0443 770 
4A3 771 ~DAT_COM: 
0000'CF 9E 9A O4A 00 MOVZBL @(SP)+,W°MACSGL_OPSIZE STORE OPERAND SIZE 
0000'CF BEDO 04A8 77 POPL  W*MACSGL_DIRFL N 
00 68 06 E3 O4AD 77% BBCS  #FLG$V  EVALEXPR, (R11), 044 yALLOW EXPRESSION EVALUATION | 


775; 
481 ore 3; CONTINUE ON INTO DATA_EXIT 
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4B1 779 ;++4 
rr} if ; FUNCTIONAL DESCRIPTION: 
481 7 ¢ ; ‘ADDRES’ IS CALLED WHEN A .ADD RESS DIRECTIVE Is SCANNED. 
481 783: ALL THAT IS DONE IS TO SET FLAGS AND ENSURE T THERE 
ne : : IS ROOM IN THE INTERMEDIATE BUFFER TO CONTAIN’ THE EXPRESSION. 
481 7 § ;-- 
481 7 
4B1 788 ADDRES:: ;ADDR_TYPE = KADDRESS 
481 789 DATA_EXIT: 

OOOO'CF 59 D1 0481 790 CMPL R9 saan or :NEAR THE END OF THE BUFFER? 

03 18 0486 791 BLEGU 10$ SIF LEQ NO 
FB45" 30 048 138 SBW 383» MAC SOUTF RAME SYES=-WRITE BUFFER OUT 
OOOO'CF 59 DO 04 793 10$: MOVL RO LU-MACSCL EXPPTR ‘SAVE START OF EXPRESSION 
000O'cF 59 00 O4¢ 794 MOVL R9,W°MACSGL EXPEND yAND END OF EXPRESSION 
QOOOO'CF D4 O04C 795 CLRL  W*MACSGL ~ABSFLAG sASSUME ABSOLUTE EXPR 
OOOO'CF 04 0469 79 CLRL W*MACSGL~PRMSEG : ABSOLUTE SEGMENT 
00 6B 04 €5 O040D 79 BBCC #FLGS$V -DATRPT (R11), .41 “NO REPEAT YET 
6B 00000084 8F CB 0401 798 BISL2 #FLGSMEXPOPT!FLGSM_ EOMPEXPR (R11) ;ALLOW EXPRESSION OPT. 
“ 048 199 on AND ASSUME COMPILE TIME EXPR 
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409 ¢ p++ 
409 3: FUNCTIONAL DESCRIPTION: 
409 5: "STOADR' IS CALLED FOR EACH ITEM FOUND IN A .ADDRESS DIRECTIVE. 
409 $ ; CODE IS PUT IN THE INTERMEDIATE BUFFER TO STACK THE VALUE, 
409 : AND STORE POSITION INDPENDENT DATA. FLAGS ARE THEN INITIALIZED 
409 08 : THE NEXT ITEM, 
409 09 ; 
409 10 ;-- 
1b8 13 STOADR ;ADDR_LIST = EXPR ! ADDR_LIST DCOMMA EXPR 
33 . lt A EX 
Q0000'CF D5 0409 i$ TSTL  W*MACSGL_ABSFLAG : ABSOLUTE EXPRESSION? 
OE iF 40D 814 BNEQ 10 a NO 
FBIE' 30 O4DF 815 BSBW MACSOPTIMIZEXPR Rs" 
0452 816 SINTOUT_LW INTS_STKL,<W*MACSAL vit Sackth > BUD STACK THE VALUE 
O4ED 817 10S: SINTOUT-X INT$_SPID ; STORE DATA 
O4F3 818 SINC_ : COUNT FOUR BYTES 
FFB6 «31 Oar 819 BRW DATA_EXIT ‘INIT FOR NEXT ADDRESS 
04FB B31 344 
pore 8 gi 3; FUNCTIONAL DESCRIPTION: 
04FB B34 | ; "DATARG’ IS CALLED FOR EACH ITEM IN A BYTE/WORD/LONG/ QUAD 
O4FB 825 ; DIRECTIVE. FLAGS ARE INITIALIZED FOR THE NEXT ITEM. 
O4FB 826: 
04FB : 7 3- 
04FB 8 
04FB 829 DATARG:: ;DATA_LIST = EXPR 
04FB 830 SDATA-LIST = DATA List DCOMMA EXPR 
O0000'CF DS O4FB 831 TSTL  W*MACSGL_ABSFLAG SABSOLUTE EXPRESSION 
04 13 O4FF 832 SEQL Sd tIF EQL YES 
00 68 07 «#+€5 0501 8 BBCC #FLG$V_EXPOPT,(R11),10$ :NO--NO OPTIMIZATION 
bas Bg 13 
bene B34 3: THE FOLLOW.NG ALLOWS EVALUATION OF REPEAT COUNT 
00 68 02 €3 0505 838 BBCS #FLG$V COMPEXPR. (R11),.+1 ;ASSUME COMPILE TIME EXPRESSION 
0000'CF 04 0509 839 CLRL W*MACSGL LAG yASSUME ABSOLUTE 
0000'CF D4 050D 840 CLRL W*MACS$GL~ RASEG [ABS PSEC 
00 68 04 €5 0511 841 BBCC #FLGS$V SORTRPT. (R11),.+1 :NO REPEAT COUNT YET 
5 0515 4@ RSB 
0516 84 
0516 44 3+¢ 
0516 Big ; FUNCTIONAL DESCRIPTION: 
0516 23: 3 "DATNUL’ IS CALLED WHEN A NULL DATA ITEM IS FOUND IN A 
0516 B48 : BYTE/WORD/LONG/QUAD/OCTA DIRECTIVE. A ZERO VALUE IS EMITTED 
0316 49 : TO PASS 2 AND FLAGS ARE INITIALIZED FOR THE NEXT ITEM. 
0516 851 :-- 
516 3 
516 853 DATNUL:: :DATA_STAT = DATA_TYPE <NULL> 
55 9000 cE po 516 854 MOVL W*MACSGL_DIRFLG,RS iGET INDEX FOR DATA TYPE 
0000 #1 A 318 35 MOVZBL L“DAT_NUC_CMD(R5),RO  :GET AND 
0 po 05 4 PUSHL #0 :$T ra 
FAD9' 30 0524 857 BSBW  MACSINTOUT_1_LW ‘SEND TO INT. BUFFER 
53 00000031'ES 9A 0527 858 MOVZBL L“DAT_SHIFT_FACT(RS).R3 : Get shift factor 
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| 
_ this .QUAD or .OCTA? | 


S See bits Se as zero 
; Was this .OCTA 


No if NEQ 

: Set bits 64-95 and 
; bits Foe Gort zero 
SINIT FOR NEXT ITEM 


MACSACTSTA MACHIN 
v04-000 


VViViViAMNAAN orien 


Q 
p 
0 
0 
0 
0 
0 
0 


MACSACTSTA MACHINE STATEMENTS 16-SEP-1984 :01:19 VAX/VMS Macro v04-00 Page 3 
v04-000 DATA GENERATION DIRECTIVES ets be 0F: 18 EMACRO SRe ACTSTA.MAR; 1 ° (ie) 
e 4 p++ 
eh oy ; FUNCTIONAL DESCRIPTION: 
55A if 3 *DALST2° AND 'DALST1" ARE CALLED TO PROCESS THE ITEMS IN 
SSA ‘ee A DATA=LIST FOR BYTE/WORD/LONG/QUAD/OCTA DIRECTIVES. ‘DALST2' 
055A 74; IS CALLED IF THIS IS A REPEAT ITEM, AND ‘DALST1' IS CALLED 
O55A 73 3 IF IT IS NOT. 
OS5SA 6 : 
OSSA 77 :-- 
OS5A 78 
OSSA 79 DALST2:: ;DATA_ARGS = DATA_LIST DSQOPN EXPR DSQCLS 
68 04 €3 B22A 80 BBCS #FLGSV_DATRPT,(R11),-  ;THIS IS REPEATED DATA 
03 55D 81 DALST1 
055E Be QUDSTR:: ;DATA_STAT = QUAD_HEAD PRIMITIVE 
O55E 883 OCTSTR:: sDATA_STAT = OCTA_HEAD PRIMITIVE 
FF9OA 30 O55E 884 BSBW DATARG : INIT DATA FLAGS 
0561 885 DALST1:: ;DATA_ARGS = DATA_LIST 
55 OO00'CF DO 0561 886 MOVL W*MACSGL_DIRFLG,R5 GET BATA TYPE INDEX 
2D 68 04 E1 $206 tt BBC #FLGSV_DATRPT, (R11) ,30$ ;BRANCH IF NOT REPEAT 
b2e8 $30 3 THIS IS REPEATED DATA TYPE 
0000‘ CF DS 056A 891 TSTL W*MACSGL_ABSFLAG 31S REPEAT COUNT ABSOLU/E? 
0 12 056E o38 BNEQ >IF NEQ NO=--ERROR 
50 FFFC'CE47 DO 0570 89 MOVL W*MACSAL_VALSTACK=4(R7J,RO ;YES--GET REPEAT COUNT 
OD 11 0576 894 BRB ;AND SKIP AHEAD 
0578 895 108: SMAC_ERR RPTCNTNABS ; No--get error code 
' 30 0570 896 BSBW MACSERRORPT ; ISSUE MESSAGE TO PASS 2 
FFFC'CF47 D4 0580 897 CLRL W*MACSAL_VALSTACK=-4(R7] ;DO NO REPEATING 
50 00000007'ES 9A 0585 898 208: MOVZBL L“DAT_RPT_CMD(RS),RO 3GET COMMAN 
FA71° 30 058C 899 BSBW MACSINTOUT_X s ISSUE TO PASS 2 
50 FFFC'CF47 DO O5S8F 900 MOVL W*MACSAL_VALSTACK-4(R7],RO 3;GET THE REPEAT COUNT 
36 611 +0595 8901 BRB 60$ sFINISH UP 
0597 = 90 
ea44 454 3 NOT A REPEAT 
25 6B 07 5 0597 905 30s: BBC #FLGSV_EXPOPT,(R11),40$ ;BRANCH IF NOT OPTIMIZABLE 
FA62' 0 0598 906 BSBW MACSOPTIMIZEXP sYES--WIPE OUT EXPRESSION 
OOOO'CF47 ODD bex§ 907 PUSHL W*MACSAL_VALSTACKCER7] ;STACK THE VALUE 
50 00000015‘°EF4S DO O5A 908 MOVL be QAT_TRONC CHKERSJ.RO 3;GET TRUNCATION ROUTINE CHECK ADDRESS 
02 13 OSAB 909 BEQL 3$ :IF EQL NO NEED TO CHEC 
60 16 QSAD 910 JSB (RO) ;CHECK FOR TRUNCATION AND REPORT ERROR 
55 0000'CF DO OSAF 911 33$: MOVL W*MACSGL_DIRFLG,R5 sRETRIEVE DATA TYPE INDEX AGAIN 
50 00000000'ES 9A p2B6 aig MOVZBL L“DAT_NUC cmp (R5) RO 3;GET THE COMMAND 
FAG2" 30 0588 913 35$:  BSBW  MACSIRTOUT_1_LW :SEND TO INT. FILE 
on 4. Ba Baek a3 BER 50$ 3 CONTINUE 
b208 318 3; NOT OPTIMIZED, NOT REPEATED 
50 GO00000E ti 9A 50 918 40s: MOVZBL L“DAT_STO_CMD(R5),RO 3;GET COMMAND 
FA36" 30 5¢ 919 BSBW MACSINTOUT_X sSEND TO INT. FILE 
50. 601 9A ach ast 50$: MOVZBL #1,R0 ;USE REPEAT COUNT OF 1 
2ep 2 § 3; FINISH UP 
53 90000051" ES 9A 05CD 924 60$:  MOVZBL L“DAT_SHIFT_FACT(RS),R3 ; Get shift factor 
> m 3 78 0504 $25 ASHL R3,RO0,RO : Figure total allocation 


ne ee = ) 
9 
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D8 SINC_PC R : COUNT IN PASS 1 
03 53 94 i 5 CnPB ny 03 Mg. .QUAD or .OCTA 
E ; SINTOUT_L INTS_STIL,<W*MACSGL_ il! <! sqné bits 72°65 to intermediate file 
4 53 91 EC 0 CMPB RS rT this .OcT 
14 12 OSEF BNEQ  65§ f NEO 
5F1 9 i SINTOUT_LW INTS$_STIL,<W*MAC$GQ ile : Send bits 64-95 and then 
are 3 2 65s SINTOUT_LW INTS_STIL,<W*MAC$GQ_VAL2+4> ; bits 96-127 to intermediate file 
95 0605 935 ei 
FEAS 31 0606 936 70S: BRW DATA_EXIT sINIT FOR NEXT ELEMENT 
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~SBTTL ENTRY POINT DEFINITION DIRECTIVES 


oO 
zo 


p++ 
: FUNCTIONAL DESCRIPTION: 
: VECTRO Is CALLED WHEN A .VECTOR DIRECTIVE WITH NO EPT MASK 
VECTRO:: :D1 RECTIVE = KVECTOR ID 
SINTOUT_LW INTS_STKEPT,<W*MACSAL. -VALSTACK R7]> ;STACK ENTRY POINT MASK 
SINTOUT“X INTS. STOW ord 
69 11 BRB ENTRY_VEC_XIT TAKE. COMMON EXIT 


p++ 
; FUNCTIONAL DESCRIPTION: 

: VECTR2 AND Mg Md ARE CALLED WHEN .VECTOR DIRECTIVES ARE 
: SCANNED WITH AN EPT MASK. CODE IS EMITTED TO STACK THE 
H EPT AND OR IT WITH THE EXPRESSION ON THE STACK. 


VECTR2:: RECTIVE = KVECTOR ID EXPR 
52 FFFC'CF47 00 MOVL W°MACSAL_VALSTACK=4(R7], Re: sPOINT TO SYMB 
06 = «11 BRB VEC_COM 
VECTRI1:: RECTIVE = KVECTOR ID DCOMMA EXPR 
52 FFF8°CF47 DO 
VEC_COM: 
$INToUT _LW INTs STKEPT,R2 STACK EPT 
SINTOUT_X INT$_OR SOR WITH EXPR ON STACK 
SINTOUT-X INTS-STOW : Store word 
a 6 “ENTRY VECTOR 3 


* 
FUNCTIONAL DESCRIPTION: 


COOOCOCOCOGOOOOOCGGOOVOOOCOCO COSCO OSOOOCOOOSOOOOOOOOOoOoOO 
PDR AA A AAA AAA AAA AA AA AAA AAAAAAAAAAASASASASS on 
CDOCCOCOCOM OMS FB LHL HLMOOOMOOOOOMOOOPHLOOCOCOOOOOOONOO —m 


100 C9 CO 09 CD09 09 SINISE DAA AAA AAA MINIT EPEAT 
PAR 9 OD NAUE WIN SO ODNAUE WN 9 OD NAMES WN OOONOAOUS WOO 


: ENTRY1 AND ENTRY2 ARE CALLED TO PROCESS .ENTRY DIRECTIVES. THE 
: ONLY DIFFERENCE BETUEEN THEM IS_ THAT ENTRY! IS CALLED IF THERE 
06 : WAS A COMMA BETWEEN THE ID AND THE EXPRESSIION AND ENTRY2 IS 
0640 : CALLED IF THERE WAS NO COMMA. 
640 
640 ENTRY1:: RECTIVE = KENTRY ID DCOMMA EXPR 
56 FFFB°CF47 DO 0640 5 MOVL W*MACSAL_VALSTACK=-8(R7], ie! :POINT TO SYMBOL BLOCK 
06 11 064g 986 BRB s-ENTRY_COM 
rat bs ENTRY2:: IRECTIVE = KENTRY ID EXPR 
56 FFFC'CE47 D0 0648 989 4 W“MACSAL_VALSTACK=4CR7].R6- “POINT TO SYMBOL BLOCK 
64E 90 ENTRY_COM: 
0204 BF AB OSE 991 BiSW2  #SYMSM_EPT!SYMSM_GLOBL,- ;MARK AS GLOBAL EPT 
(Pts 50 beek 898 PS cen dane Spgt INE 
657 (994 STRTOUT_LECINTS.EPT,<R6,W*MACSAL VALSTACKERDI> ;PROCESS EPT ON PASS 2 


MOVL — W*MACSAL_VALSTACK-8ER7I,R2. :POINT TO SYMBOL 
| 
| 
| 
| 
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$ 1 miieets 1 Oe: 9: 12 ies Macro V04-00 Page #6 
NITION DIRECTIVES =SEP=1984 MACRO.SRCJA CTSTA -MAR; 1 (16) 
ENTRY_VECTOR: 

ist W*MACSGL_ABSFLAG : ABSOLUTE EXPR? 

BITL #°X3003,W*MACSAL ava.stacktn7} ;YES=-ANY ILLEGAL BITS SET? 
EQL 20$ 31F EQL NO 

are wieemeed 3 4k. message code 

ge: SMAC_ERR EMSKNOTABS : Entry mask not absolute 

3$: BSBW #MACSERRORPT s;REPORT TO PASS 2 

NTRY_VEC_XIT: | 

$INC_PC #2 sCOUNT TWO BYTES 
MOVL MACSGL_PSECTPTR, RO *AND MARK THE PSECT AS REFERENCED. 
BISW2  #SYMSM~REF ,PSC$W_FLAG(ROS 
RSB 
++ 
; FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS CALLED TO PROCESS THE .TRANSFER DIRECTIVE. 
CODE IS EMITTED TO PASS 2 TO SEND A REDEFINITION COMMAND 
TO THE LINKER. 
sDIRECTIVE 5 KXFER ID 
$SINTOUT 1M. Ins REDEF « pcuMACSAL _VALSTACKCR7J> ;TELL PASS 2 
MOVL L_PSEC RO AND “WARK THE PSECT AS REFER 
CMPB Peeeoe LeeeiROD Re ARE WE DEALING WITH 
BNEQ 10 THE BLANK PSECT? 
B1sw2 #SYMSM_REF ,PSC$W_FLAG(RO) [YES MARK IT AS REFERENCED. 
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MACSACTSTA MACHINE STATEMENTS 19-SEP-1986 92:0 :19 FAX YRS Ma 
Symbol table “SEP-1984 01:47:15 CMACRO.SRCJACTSTA.MAR; 1 
OBJ$K_BUFSIZ = 900 290 PSC$M_QUAD = 4 “YMSL_VAL 0 005 
OCTA QO00049E RG o% PSCS$M_RD = SYM$M_ABS s 10 
OCTSTR 00 23F RG 4 PSCSM_REL = SYMSM_AS = 1 
OPDSM_ADDR = 0000000 PSC$M_SHR = SYMSM_CRF = 0 
OPD$M_BB = 8208 Al PSC$M_USR = FFFFFFFD SYMSM_DEBUG = 00000020 
OPDSM_BW = 00 3 PSCSM_VEC = 68 o¢ $M_DEF = 8 8 1 
OPDSM_D FLOAT = 45 $ PSC$M_WORD = 4 SYMSM_DELMAC = 3 0 
OPDSM_FCOA = 0000 8 PSCSM_WRT s 8 01 $M_EPT = 0000 + 
OPDSM_G_FLOAT = is 0 PSC$S_ALIGNMENT= SYMSM_EXTRN = 0000000 
OPDSM_H_ FLOAT = 00009 8 PSCSV_ALIGNFLG = $ OE SYM$M_GLOBL = 38 3808 
DSM_MODE = 000003E PSCS$V_ALIGNMENT= OA SYMSM_LOCAL = 00 40 
OPDSM_MODIFY = 98000088 PSC$V_EXE = 49 SYM$M_ODB = 8 B408 
OPDSM_NOT 32F = 0 PSC$V~GBL = $ YM$M_REF = 00000080 
DSM_READ = aed 3 PSC$V_LIB = 00000001 SYM$SM_RELPSECT = 00000800 
OPDSM_VIELD = 00000080 PSC$V_OVR = ai SYM$M_SUPR = 00004000 
OPDSM_WRITE = 00000060 PSC$V_PIC = 000000 SYM$M_WEAK = 00000002 
OPD»S_! = 00000005 PSC$V_RD = 00000007 SYM$M_XCRF = 00001000 
OPD$S_SIZ = 00000005 PSCSV_REL = 00000003 SYMSV_ABS = 00000004 
OPD$SV_D_FLOAT = QOQQOQQ00E PSCS$V_SHR = 00000005 SYM$V_ASN = 00000008 
oposv_FCO = 0000000F PSC$V_VEC = 00000009 SYMSV_CRFO = 0000000D 
OPD$V_G_FLOAT = 0000000D PSCS$V_WRT = 00000008 SYMSV_DEBUG = 00000005 
OPD$V_H_ FLOAT = 0000000C C$W_FLAG 00000009 DEF = 00000000 
POSV_ = 00000005 PSC$W_OPTIONS 0000000D SYMSV_DELMAC = 00000009 
OPD$V_SIZE = 00000000 = 00000008 SYMS$V_EPT = 00000009 
OPFSM_LASTOPR = 00002000 QUAD QOOO048F RG 04 SYMSV_EXTRN = 00000003 
OPFSM_OPT = 00001000 QUDSTR Q000055E RG 04 SYM$V_GLOBL = 00000002 
OPFSV_LASTOPR = 0000000D = 00000021 SYM$V_LOCAL = 00000006 
OPFSV_OPTEXP = 0Q000000C RD = 0000C028 SYM$V_ODB = QOO00000A 
OPRAN 0000008C RG 04 RDX$V_BINARY = 00000000 SYMSV_RE = 00000007 
PSC$B_NAME 00000004 RDX$V_DECIMAL = it SYMS$V_RELPSECT = 00000008 
PSC$B_SEG 0000000C RDX$V_DOUBLE = 0000000 SYM$V_SU = Q0000000E 
PSC$B_UNUSED saat RDXS$V_FLOAT = 00000004 SYM$V_WEAK = 00000001 
PSC$K_BLKSIZ 0000001 RDX$SV_GFLOAT = ati SYMSV_XCRF = 0000000C 
PSCSK_NO_OPTNS = QOOOQQ00A RDX$V_HEX = 0000000 SYMSW_FLAG 00000009 
PSC$L_CURLOC 0000000F RDX$V_HFLOAT = 00000007 TAB = 00000009 
PSCS$L_LINK 00000000 RDX$V_OCTAL = 00000001 vB = 00000081 
PSCSL_MAXLGTH 00000005 EG$_P = 0000000F VD = 0000C088 
PSCSM_ABS = FFFFFFF7 F = 00008024 VECTRO 00000609 RG 04 
PSCSM_ALIGNFLG = 00004000 RG = 0000A028 VECTRI 00000624 RG 04 
PSCSM_ALLOPTNS = QOOOO3FF RH = 000090350 VECTR2 0000061C RG 04 
PSCSM_BYTE = 00004000 RL = 4 ts VEC_COM 0000062A R 04 
SCSM_C = FFFFFFFB RO = 880008 0 VF = 00008084 
PSCSM_DEFAULT = 000001C8 RQ = 00000028 VG = 0000A088 
PSCSM_EXE = 608 4 RW = 4 3 2 VH = S44 
PSC$M_GBL = 0000001 EMI = B VL = : 84 
SCSM~LCL = FFFFFFEF SGNBYT 0000494 RG 04 vo = 000 $30 
PSCSM_LIB = sg Ht SGNWRD eda RG 04 vQ = 00000088 
PSCSM_LONG = 0000480 STATI 0000000 RG 04 Vd = 000 BRS 
PSCSM_NOEXE = FFFFFFBF STBSK_PG_MISS = QOQQQOOA W = 0000000 
PSCSM_NOPIC = FFFFFFFE STOADR 38 nat RG 04 WB = $800 61 
SCSM_NORD = FFFFFF7F SYM$B_NAME : oN wD = 4 68 
PSCS$M_NOSHR = FFFFFFDF SYM$B_SE 000000C WF = $8 64 
PSCSM_NOVEC = FFFFFDFF SYM$B_ TOKEN 0000008 WG z A $8 
PSCSA_ = Aad SYMSK_BLKSIZ 0 0D WH = 8 
PSCSRCPAGE == 09009400 SYNSK-TUOCOL = 6 1 uo : 09 9 
PSCSM_PIC = $008001 SYMS$L-LINK 00 WORD 000 485 RG 04 


Symbol table 


wa 00006 
wd = po0008 
x = 000 8 1 
x1 = 000 3 
x2 = 000800 : 
XFER 00000698 RG 04 
tmoereamae nero ee sean + 
: ;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 


ABS 00000000 ( 0.) 00 ¢ 0.) MNOPIC USR CON ABS LCL WOSHR NOE XE 
. BLANK esa ( 0.) O1¢ #1.) NOPIC USR CON REL’ LCL NOSH EXE 
SABSS 00013 ¢ 19.) 0¢ ( ¢:) NOPIC USR CON ABS LCL NOSHR EXE 
MACSRO_DATA 00000038 (¢ 56.) 03 ¢ 3.) NOPIC USR CON REL GBL NOSHR NOEXE 
MACSRO_CODE_P1 00000687 ( 1719.) 04 ¢ 4.) NOPIC USR CON REL GBL NOSHR EXE 
Qucenennecnasneesneneenent 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 90: 09:00.0¢ 00:00:06 .08 
Command processing 103 00:00:00.36 00:00:03.4 
Pass 1 259 00:00:05.02 Op 80! 53-62 
Symbol table sort 0 Op: 89:20 -88 00:00:02.90 
Pass 2 196 Ss SE 7 BO) 188 89-38 
Symbol table output 43 89:29: 0.22 0:00:01.00 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 See Be Bb 
Assembler run totals 634 00:00:08.01 00:00:41.6 


The working set Limit was 1350 pages. 

48829 bytes (96 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table goese allocated to hold 587 non-local and 67 local symbols. 
1028 source Lines were read in Pass 1 "aoe W's object records in Pass 2 


21 pages of virtual memory were used to define macros. 
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Macro library name Macros defined 


_$255$DUA28: = EMACRO. .OBJ JMACRO.MLB; 1 15 
“$255$DUA28 SYSLIBISTARLET. MLB; 2 
TOTALS Act Libraries) 1 


625 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ACTSTA/OBJ=OBJ$:ACTSTA MSRC$:ACTSTA/UPDATE=(ENHS$:ACTSTA) +LIB$:MACRO/LIB 
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RD 
RD 
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NOWRT NOVEC BYTE 


NOWRT NOVEC LONG 
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